home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00072_setupMenu.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  1.2 KB  |  19 lines
  1. global gMenuObject, gActorList, gHiddenActorList, gRollAnimButton, gLoopGroupObject
  2.  
  3. on exitFrame
  4.   unLoadCast()
  5.   clearAllActors()
  6.   puppetSprite(the quitButChan of gMenuObject, 1)
  7.   add(gActorList, birth(script "Rollover Anim Button Class", "menuButton( gMenuObject, 1 )", 1, 14, 8, "RCA-06VO06", "RCA-06RO06", 5, 5))
  8.   add(gActorList, birth(script "Rollover Anim Button Class", "menuButton( gMenuObject, 2 )", 2, 15, 30, "RCA-06VO10", "RCA-06RO10"))
  9.   add(gActorList, birth(script "Rollover Anim Button Class", "menuButton( gMenuObject, 3 )", 3, 16, 9, "RCA-06VO07", "RCA-06RO07", 10, 6))
  10.   add(gActorList, birth(script "Rollover Anim Button Class", "menuButton( gMenuObject, 4 )", 4, 17, 18, "RCA-06VO08", "RCA-06RO08"))
  11.   if the quitEnabled of gMenuObject = 1 then
  12.     add(gActorList, birth(script "Rollover Anim Button Class", "quitButton( gMenuObject, me )", 11, 11, 5, EMPTY, "RCA-06RO01"))
  13.   end if
  14.   add(gActorList, birth(script "Rollover Anim Button Class", "help( gMenuObject, me )", 12, 12, 11, EMPTY, "RCA-05RO02"))
  15.   set gLoopGroupObject to birth(script "LoopButton Group Parent")
  16.   add(gActorList, gLoopGroupObject)
  17.   add(gActorList, birth(script "RolloverSound Class", 5, "RCA-06RO51"))
  18. end
  19.